home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 51 / Tiger_Disk_051_1998-06_Tiger-Crew-Disk_de_Side_B.d64 / -- ende -- 079 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  825b  |  17 lines
  1. 100 poke53280,.:poke53281,.:printchr$(147):
  2. 102 forv=54272to54295:pokev,0:next:poke54296,15:poke54277,8:v1=54272
  3. 104 poke54278,255:poke54276,17:fora=1to2:s1=17:forb=-3to1:s2=13:poke54273,s1+2
  4. 106 ford=1to2:poke54287,s2:s2=s2*1.1:next:s1=s1*1.2:next:next
  5. 108 ford=1to8:s2=20:poke54273,s1:fore=1to3:poke54287,s2:pokev1+4,17
  6. 110 s2=s2*1.2:next:s1=s1/1.2:pokev1+4,64 :poke54278,1:next
  7. 112 forn=1to16:form=1to10:         poke646,n: print"    ende[146]       [157]";
  8. 114 nextm:print"[145][145][145][157][157][157][157][157][157][157]";:nextn
  9. 116 forv=54272to54295:pokev,0:next:poke54296,15:printchr$(147)
  10. 117 forc=1to23:poke646,c:print"[164][175][185][209][209][185][175][164][164][175][185][206][205][185][175][164][164][175][185][184][184][185][175][164][164][175][185][206][205][185][175][164][164][175][185][209][209][185][175][164]";:next
  11. 118 poke54278,255:poke54276,33:s1=17:forb=-9to1:s2=13:poke54273,s1+2
  12. 120 ford=1to2:poke54287,s2:s2=s2*1.1:next:s1=s1*1.2:next:
  13. 122 ford=1to8:s2=20:poke54273,s1:fore=1to3:poke54287,s2:pokev1+4,17
  14. 124 s2=s2*1.2:next:s1=s1/1.2:pokev1+4,64 :poke54278,1:next
  15. 126 forz=1to1750:next:poke56325,2:print"             ";
  16. 128 print"[153][148]            e n d e !";:poke56325,55:forz=1to1750:next:sys58253
  17.